function [s] = TraceFile(tipo, file, str)

    fprintf(file, '%s', str);
    if (tipo < 2) || (tipo > 4)
        if (length(str) == 3)       fprintf(file, '%s', '        ');
        elseif (length(str) == 4)   fprintf(file, '%s', '      ');
        else                        fprintf(file, '%s', '     ');        
        end
    end
    if (tipo ~= 1)  fprintf(file, '\n');
    end

end
    
    
    